************************************
** Common block for f77 interface **
************************************
*
* @file sion_f77.h
*
* @brief Common block for Fortran77 interface
*
* @author Florian Janetzko
* @date 29.05.2013
*
****************************
* SION version information *
****************************
      INTEGER sion_main_version,sion_sub_version,sion_version_patchlevel
      INTEGER sion_fileformat_version
      PARAMETER (sion_main_version = 1,
     & sion_sub_version = 7,
     & sion_version_patchlevel = 6,
     & sion_fileformat_version = 5)
******************
* SION constants *
******************
      INTEGER sion_current_rank,sion_current_blk,sion_current_chunk
      INTEGER sion_current_pos,sion_absolute_pos, sion_success
      PARAMETER (sion_current_rank = -101,
     & sion_current_blk = -102,
     & sion_current_chunk = -102,
     & sion_current_pos = -103,
     & sion_absolute_pos = -104,
     & sion_success = 1)
